perm filename LIBMAC.ODF[PAS,SYS]2 blob
sn#379468 filedate 1978-09-07 generic text, type T, neo UTF8
1) U:LIBMAC.BKP[PAS,EJG] and 2) U:LIBMAC.MAC[PAS,EJG] 8-17-78 18:57 pages 26,24
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 106
1) XCT FILLKP(REG) ;LOOKUP
1) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 106
2) PUSHJ TOPP ,RESLKP ;GO LOOKUP
2) JRST SETEOF ;ERROR ON LOOKUP OR OPEN
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 114
1) ;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 115
2) RESLKP: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY LOOKUP
2) XCT FILLKP(REG) ;LOOKUP
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 124
1) XCT FILENT(REG) ;ENTER
1) JRST REWERR ;ERROR ON ENTER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 132
2) PUSHJ TOPP ,REWENT ;GO ENTER
2) JRST REWERR ;ERROR ON ENTER
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 133
1) ;
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 142
2) REWENT: PUSH TOPP ,FILPPN(REG) ;SAVE PPN CLOBBERED BY ENTER
2) XCT FILENT(REG) ;ENTER
2) CAIA
2) AOS -1(TOPP)
2) POP TOPP ,FILPPN(REG) ;RESTORE PPN
2) POPJ TOPP ,
2) ;
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 200
1) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
1) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 216
2) HLLZS AC1 ,FILEXT(REG) ;TO GET CORRECT CRE-DATE
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 26 line 204
1) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 24 line 219
2) MOVEM REG3 ,FILPPN(REG) ;PROJECT-PROGR. NUMBER
2) HRRI AC1 ,FILNAM(REG) ;WHERE TO DEPOSIT IT
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 29 line 98
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 27 line 98
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT CHARACTER IN OUTPUT BUFFER
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 29 line 114
1) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 27 line 116
2) CAIN AC0 ,"←"
2) MOVEI AC0 ,30 ;Ko: convert to Stanford underbar
2) IDPB AC0 ,FILBTP(REG) ;DEPOSIT IN OUTPUT BUFFER
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 30 line 137
1) CAIE AC0 ,12 ;LINE FEED?
1) JRST GETCNT ;NO - FORGET IT
1) AOS FILEOL(REG) ;SET EOLN
1) SETZ AC1 , ;CLEARS CHARACTERCOUNT
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 28 line 137
2) CAIN AC0 ,12 ;LINE FEED?
2) JRST GETLF
2) CAIN AC0 ,30 ;This is the stupid Stanford underbar
2) jrst getsbr ;Stanford '←'
2) jrst getcnt ;ignore it
2) GETLF: AOS FILEOL(REG) ;SET EOLN
2) SETZ AC1 , ;CLEARS CHARACTERCOUNT
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 30 line 144
1) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 28 line 147
2) getsbr: movei ac0 ,"←" ;convert Stanford underbar to '←'
2) jrst getnew
2) GETTAB: TLNE AC1 ,7 ;IS THIS TAB ON
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 31 line 2
1) TWOSEG
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 29 line 2
2) opdef dateuu [date]
2) TWOSEG
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 31 line 36
1) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) POPJ TOPP ,
1) IDIVI AC0 ,144
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 29 line 37
2) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) ; POPJ TOPP ,
2) IDIVI AC0 ,144
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 31 line 52
1) MOVE AC0 ,[XWD 60,11] ;GET DAY
1) PUSHJ TOPP ,GETINF
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 29 line 53
2) ; MOVE AC0 ,[XWD 60,11] ;GET DAY
2) dateuu reg2,
2) idivi reg2,↑D31
2) movei ac0,1(reg3)
2) PUSHJ TOPP ,GETINF
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 31 line 56
1) MOVE AC1 ,[XWD 57,11] ;GET MONTH
1) GETTAB AC1 ,
1) JRST END ;MERDE
1) MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
1) HRRZI REG3 ,3 ;COUNTER
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 29 line 60
2) ; MOVE AC1 ,[XWD 57,11] ;GET MONTH
2) ; GETTAB AC1 ,
2) ; JRST END ;MERDE
2) ; MOVE REG2 ,[POINT 7,MONTHS-1(AC1),-1] ;BTP FOR MONTH-ABBREV.
2) idivi reg2,↑D12
2) movei ac1,↑D1964(reg2)
2) movei reg2,months(reg3)
2) hrli reg2,440700
2) HRRZI REG3 ,3 ;COUNTER
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 31 line 66
1) MOVE AC0 ,[XWD 56,11] ;GET YEAR
1) PUSHJ TOPP ,GETINF
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 29 line 74
2) ; MOVE AC0 ,[XWD 56,11] ;GET YEAR
2) move ac0,ac1
2) PUSHJ TOPP ,GETINF
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 32 line 36
1) GETINF: GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
1) POPJ TOPP ,
1) IDIVI AC0 ,12 ;DIV BY 10
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 30 line 36
2) GETINF:;GETTAB AC0 , ;GET VALUE FROM SYSTEM-TABLE
2) ; POPJ TOPP ,
2) IDIVI AC0 ,12 ;DIV BY 10
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 32 line 48
1) MOVE AC0 ,[XWD 61,11] ;GET HOURS
1) PUSHJ TOPP ,GETINF
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 30 line 48
2) timer ac0,
2) idivi ac0,↑D60
2) idivi ac0,↑D60
2) push topp,ac1 ;push seconds
2) idivi ac0,↑D60
2) push topp,ac1 ;push minutes
2) ; MOVE AC0 ,[XWD 61,11] ;GET HOURS
2) PUSHJ TOPP ,GETINF
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 32 line 52
1) MOVE AC0 ,[XWD 62,11] ;GET MINUTES
1) PUSHJ TOPP ,GETINF
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 30 line 58
2) pop topp,ac0
2) ; MOVE AC0 ,[XWD 62,11] ;GET MINUTES
2) PUSHJ TOPP ,GETINF
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 32 line 56
1) MOVE AC0 ,[XWD 63,11] ;GET SECONDS
1) PUSHJ TOPP ,GETINF
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 30 line 63
2) pop topp,ac0
2) ; MOVE AC0 ,[XWD 63,11] ;GET SECONDS
2) PUSHJ TOPP ,GETINF
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 34 line 164
1) INIAPR: MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
1) GETTAB AC1 , ;
1) HALT ;ERROR RETURN
1) TLNN AC1 ,200 ;TEST IF BATCH-JOB
1) JRST NOTBAT ;NO
1) TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
1) IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
1) MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
1) MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
1) APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
1) POPJ TOPP ,
1) ;*******************************************************************************
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 32 line 164
2) INIAPR:;MOVE AC1 ,[XWD -1, .GTLIM] ;ARGUMENT FOR GETTAB
2) ; GETTAB AC1 , ;
2) ; HALT ;ERROR RETURN
2) ; TLNN AC1 ,200 ;TEST IF BATCH-JOB
2) ; JRST NOTBAT ;NO
2) ; TLZ AC1 ,777740 ;SET BITS 0-12 TO ZERO
2) ; IMULI AC1 ,24 ;CONVERT JIFFIES TO MSEC
2) ; MOVEM AC1 ,LIMIT ;STORE TIME LIMIT
2) ; MOVEI AC1 ,21110 ;ARGUMENT FOR APRENB
2) ; APRENB AC1 , ;ILL-MEM-REF + CLOCK-FLAG
2) ; POPJ TOPP ,
2) ;*******************************************************************************
***************
**** File 1) U:LIBMAC.BKP[PAS,EJG], Page 39 line 72
1) CAIN AC0 ," " ;LEADING BLANKS
1) JRST GTSGN ;YES - OVERREAD THEM
**** File 2) U:LIBMAC.MAC[PAS,EJG], Page 37 line 72
2) CAIE AC0 ," " ;LEADING BLANKS
2) CAIN AC0 ,"," ;AND LEADING COMMAS TOO
2) JRST GTSGN ;YES - OVERREAD THEM
***************